home *** CD-ROM | disk | FTP | other *** search
/ ETO Development Tools 4 / ETO Development Tools 4.iso / Tools - Objects / Macintosh Programmer’s Workshop / MPW 3.2 / MPW / Suspend < prev    next >
Text File  |  1991-04-17  |  624b  |  38 lines
  1. #    Suspend - MPW Shell Suspend File
  2. #
  3. #    Copyright Apple Computer, Inc. 1986-1989
  4. #    All Rights Reserved.
  5.  
  6.             Begin
  7.             
  8. #    Save all variables, exports, aliases, and menus.
  9.  
  10.               Set
  11.               Export
  12.               Alias
  13.               AddMenu
  14.             
  15. #    Save the current directory.
  16.  
  17.               Quote Directory `Directory`
  18.  
  19. #    Save the windows.
  20.  
  21.               Windows -o
  22.             
  23. #    Save projector state.
  24.  
  25.               Echo Set Exit 0
  26.               mountProject
  27.               (checkoutdir -r -m || set status 0) ≥ dev:null
  28.               Echo "Project " "`Project -q`"          
  29.               Echo Set Exit 1
  30.             
  31. #    Write it all to a temporary file.
  32.  
  33.             End > "{ShellDirectory}MPW.SuspendState"
  34.  
  35. #    User tasks.
  36.  
  37.             Save "{Worksheet}"
  38.